home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egademo.arc / SMALL.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-02-15  |  1.0 KB  |  50 lines
  1. ;pc tech journal - ega enhanced graphics article april 1985
  2. ; does small type and 43 line screen
  3.  
  4. Stack   segment  para stack 'stack'
  5.         dw       64 dup (0)
  6. Stack   Ends
  7.  
  8. Bdata   segment  at  40H
  9.         org      63H
  10. CRTC    dw       ?
  11.         org      87H
  12. info    db       ?
  13. Bdata   Ends
  14.  
  15. Code    segment  para public 'code'
  16. Small   proc     far
  17.         push     es
  18.         sub      ax,ax
  19.         push     ax
  20.         mov      ax,Bdata
  21.         mov      ds,ax
  22.         assume   ds:Bdata
  23.  
  24.         mov      ax,0003h
  25.         int      10h
  26.         mov      ax,1112h
  27.         mov      bl,0
  28.         int      10h
  29.         or       info,1
  30.         mov      ax,0100h
  31.         mov      bh,0
  32.         mov      cx,0600h
  33.         int      10h
  34.         mov      dx,CRTC
  35.         mov      al,14h
  36.         out      dx,al
  37.         inc      dx
  38.         mov      al,7
  39.         out      dx,al
  40.         mov      ax,1200h
  41.         mov      bl,20h
  42.         int      10h
  43.         ret
  44.  
  45. Small   endp
  46. Code    ends
  47.         end     SMALL
  48.  
  49.  
  50.